025700******************************************************************00025700
025800**  1200-ABRIR-FICHEROS-ENT-SAL                                 **00025800
025600*$%                                                              00025600
025900******************************************************************00025900
026000 1200-ABRIR-FICHEROS-ENT-SAL.                                     00026000
026100                                                                  00026100
026200     MOVE     CC-ABRIR        TO    VAR-ACCION                    00026200
026300                                                                  00026300
026310*$%                                                               00026310
026400     PERFORM  U401-ACC-FICH-ENTRADA-01                            00026400
026410*$$ LLAMAR FUNCION DENTRO DE UNA COPY                             00026410
026500                                                                  00026500
026600     OPEN INPUT ZV0001R                                           00026600
026610*$$ ABRIR FICHERO DE ENTRADA                                      00026610
026700                                                                  00026700
026800     IF W-FILE-STATUS-ZV0001R EQUAL ZEROS                         00026800
026810*$$ COMPRUEBA EL ESTADO DEL FICHERO (ANTERIORMENTE DECLARADO)     00026810
026900                                                                  00026900
027000        CONTINUE                                                  00027000
027100                                                                  00027100
027200     ELSE                                                         00027200
027210*$$ SI LA APERTURA DEL FICHERO HA PROVOCADO ALGUN ERROR           00027210
027300                                                                  00027300
027310*$%                                                               00027310
027400        DISPLAY 'ERROR APERTURA FICHERO: ' LIT-FICH-ENT-FZV0001R  00027400
027500        DISPLAY 'FILE STATUS:            ' W-FILE-STATUS-ZV0001R  00027500
027600                                                                  00027600
027700        PERFORM 9999-TRATAR-ERROR                                 00027700
027710*%$ TRATAMOS EL ERROR LLAMANDO A LA FUNCION ADECUADA              00027710
027800                                                                  00027800
027900     END-IF                                                       00027900
027910                                                                  00027910
028000                                                                  00028000
028100     OPEN OUTPUT ZV0001W                                          00028100
028110*$$ ABRIR FICHERO DE SALIDA                                       00028110
028200                                                                  00028200
028300     IF W-FILE-STATUS-ZV0001W EQUAL ZEROS                         00028300
028310*$$ COMPRUEBA EL ESTADO DEL FICHERO (ANTERIORMENTE DECLARADO)     00028310
028400                                                                  00028400
028500        CONTINUE                                                  00028500
028600                                                                  00028600
028700     ELSE                                                         00028700
028710*$$ SI LA APERTURA DEL FICHERO HA PROVOCADO ALGUN ERROR           00028710
028800                                                                  00028800
028810*$%                                                               00028810
028900        DISPLAY 'ERROR APERTURA FICHERO: ' LIT-FICH-SAL-FZV0001W  00028900
029000        DISPLAY 'FILE STATUS:            ' W-FILE-STATUS-ZV0001W  00029000
029100                                                                  00029100
029200        PERFORM 9999-TRATAR-ERROR                                 00029200
029210*%$ TRATAMOS EL ERROR LLAMANDO A LA FUNCION ADECUADA              00029210
029300                                                                  00029300
029400     END-IF.                                                      00029400
029410*%$ ABRIR FICHERO                                                 00029410
029500                                                                  00029500
029510*%$ PARRAFO PARA ABRIR FICHEROS                                   00029510